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‘+ 

i REQUIRE file for FORTRAN ERRSET and ERRTST Sonpes aust it routines. 

} Referenced only by modules COMSERRSET, COMSERRTST, and toms ERRSET_TST. 

i 

SRR RARE E RAE AEE AAA EA AAA RARE E AAA AEEAARATEEAA AAA ee 
! 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS” RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND at 
; DANCE THE TERMS OF CH 


e 

® 

® 

* 

® 

* 

® 

1 s 

' * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
* 

is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOT . 
*® 

® 

® 

® 

y 

® 

® 

® 


tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG 
Hie CORPORATION. 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITH 
TAL 


Vee RRR R AAA EAREA ADEA AERA AAA AAA EAAAT AAA eee Ee 


' 

! Author: J. Taylor 

! Change History: 

!Q-1 = Original. JMT 12-Jan-78 
! Q-2 = Change name to COMEST.REQ JBS 14-NOV-78 

1-001 = Change version number and add Sgoycient notice JBS 16-NOV-78 


' 1-002 - Remove PRINT statement for new BLISS compiler. JBS 02-0CT-1979 


- Define macros for accessing fields of signaled condition value: 
MACRO 


STS_SEVERITY = BLOCKCSIG_ARGS_ADRCCHFSL_SIG_NAME], STS$V_ SEVERITY; , BYTE) &%, ' error severity 
STS_FAC_NO = BLOCKCSIG_ARGS_ADRECHFSL_SIG_NAME], STSS$V_FAC_NO; BYTE) % ! facility number 
STS_ CODE = BLOCKCSIG_ARGS_ADRUECHFSL_SIG_NAMEJ, STS$V_CODE; BYTE] & ' FORTRAN error number 
STS_COND_ID = BLOCKCSIG_ARGS_ADRCCHFSL_SIG_NAME), STS$V_COND D’16; , BYTES %; ! condition i : 

' (all but control bits and severity) 


MACRO 


CHF_SIG_TRAP_NO = 8, 0, 3, 0 %; ! arithmetic trap code is 2nd signal arg List entry (3 bits) 


‘4 


i Define error control status bits set by ERRSET and tested by ERRTST 
: Each error number has a byte in FORT_ERR_TAB table with the following bits defined: 


MACRO 
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V.EC_CONTINUE = 9. 1, 0%, ! 1 = continuable (or ERR=) A EXIT. 
V_EC_COUNT ote @ be t 1 ® count ene TF image Lim 
V-EC_CONT_TYPE = 0, 2, 1, 0 %, 4 = take ee f present, sie EXIT 
' 0 = continu 
E 0, 3. 1,0%, ! 1 = print errer message 
g. 5. 1, 0 % ! 1 = continue allowed 
» 6 1, 0%, ! 1 = ERR= allowed 
0, 7, 1, 0%, ! 1 = error occurred since Last CALL ERRTST 
, 0, 8, 0 %; ! Legal error number if any bits are set 
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